home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Languages / MS Cobol4.5 / DEMO / APPCDEMO / ACSSVC.CPY next >
Text File  |  1991-04-08  |  9KB  |  165 lines
  1.       *******************************************************************
  2.       *                                                                 *
  3.       *                  (C) Micro Focus Ltd. 1990                      *
  4.       *                                                                 *
  5.       *                       ACSSVC copy file                          *
  6.       *                                                                 *
  7.       *******************************************************************
  8.  
  9.       *=================================================================
  10.       *                 verb parameter constants
  11.       *=================================================================
  12.  
  13.        78 sv-add                               value 0.
  14.        78 sv-change                            value 1.
  15.        78 sv-ignore                            value 0.
  16.        78 sv-no-add                            value 1.
  17.        78 sv-no-send                           value 1.
  18.        78 sv-send                              value 0.
  19.  
  20.        78 sv-no                                value h"00".
  21.        78 sv-yes                               value h"01".
  22.        78 sv-a                                 value h"01".
  23.        78 sv-ae                                value h"00".
  24.        78 sv-alert-subvectors                  value h"02".
  25.        78 sv-ascii-to-ebcdic                   value h"00".
  26.        78 sv-ebcdic-to-ascii                   value h"01".
  27.        78 sv-g                                 value h"02".
  28.        78 sv-intrv                             value h"00".
  29.        78 sv-nmvt                              value h"01".
  30.        78 sv-no-intrv                          value h"01".
  31.        78 sv-off                               value h"00".
  32.        78 sv-on                                value h"01".
  33.        78 sv-pdstats-subvectors                value h"03".
  34.        78 sv-substitute                        value h"00".
  35.        78 sv-round-trip                        value h"01".
  36.        78 sv-user-defined                      value h"00".
  37.  
  38.       *=================================================================
  39.       *                 return codes
  40.       *=================================================================
  41.  
  42.        78 sv-invalid-verb-segment              value h"f008".
  43.        78 sv-invalid-verb                      value h"ffff".
  44.        78 sv-keylock-secured                   value h"f013".
  45.        78 sv-ok                                value h"0000".
  46.        78 sv-parameter-check                   value h"0001".
  47.        78 sv-comm-subsystem-not-loaded         value h"f012".
  48.        78 sv-state-check                       value h"0002".
  49.        78 sv-unexpected-dos-error              value h"f011".
  50.  
  51.        78 sv-conversion-error                  value h"00000406".
  52.        78 sv-data-exceeds-ru-size              value h"00000302".
  53.        78 sv-invalid-character-set             value h"00000402".
  54.        78 sv-invalid-data-segment              value h"00000006".
  55.        78 sv-invalid-data-type                 value h"00000303".
  56.        78 sv-invalid-direction                 value h"00000401".
  57.        78 sv-invalid-first-character           value h"00000404".
  58.        78 sv-invalid-message-action            value h"00000621".
  59.        78 sv-invalid-set                       value h"00000624".
  60.        78 sv-invalid-storage-size              value h"00000627".
  61.        78 sv-sscp-pu-session-not-active        value h"00000301".
  62.        78 sv-table-error                       value h"00000405".
  63.        78 sv-invalid-nmvt-header               value h"00000304".
  64.        78 sv-invalid-char-not-found            value h"00000630".
  65.        78 sv-invalid-source-code-page          value h"00000631".
  66.        78 sv-invalid-target-code-page          value h"00000632".
  67.  
  68.       *=================================================================
  69.       *                 operation codes
  70.       *=================================================================
  71.  
  72.        78 sv-convert                           value h"1a00".
  73.        78 sv-define-trace                      value h"1d00".
  74.        78 sv-get-cp-convert-table              value h"1900".
  75.        78 sv-log-message                       value h"1f00".
  76.        78 sv-transfer-ms-data                  value h"1c00".
  77.  
  78.  
  79.       *=================================================================
  80.       *                verb structures
  81.       *=================================================================
  82.       *-----------------------------------------------------------------
  83.       *                convert service verb record definitions
  84.       *-----------------------------------------------------------------
  85.  
  86.       *--------------- convert verb ------------------------------------
  87.        01 convert-verb redefines vcb.
  88.          03 opcode-cvt          pic 9(4) comp-x.
  89.          03 filler              pic x(2).
  90.          03 primary-rc-cvt      pic 9(4) comp-x.
  91.          03 secondary-rc-cvt    pic 9(8) comp-x.
  92.          03 direction-cvt       pic 9(2) comp-x.
  93.          03 char-set-cvt        pic 9(2) comp-x.
  94.          03 len-cvt             pic 9(4) comp-5.
  95.          03 src-ptr-cvt         usage pointer.
  96.          03 targ-ptr-cvt        usage pointer.
  97.       *-----------------------------------------------------------------
  98.  
  99.       *--------------- define-trace verb -------------------------------
  100.        01  define-trace-verb redefines vcb.
  101.          03 opcode-dft          pic 9(4) comp-x.
  102.          03 filler              pic x(2).
  103.          03 primary-rc-dft      pic 9(4) comp-x.
  104.          03 secondary-rc-dft    pic 9(8) comp-x.
  105.          03 filler              pic x(8).
  106.          03 dt-set-dft          pic 9(2) comp-x.
  107.          03 appc-dft            pic 9(2) comp-x.
  108.          03 filler              pic x.
  109.          03 srpi-dft            pic 9(2) comp-x.
  110.          03 sdlc-dft            pic 9(2) comp-x.
  111.          03 tkn-rng-dlc-dft     pic 9(2) comp-x.
  112.          03 pcnet-dlc-dft       pic 9(2) comp-x.
  113.          03 dft-data            pic 9(2) comp-x.
  114.          03 acdi-data           pic 9(2) comp-x.
  115.          03 filler              pic x.
  116.          03 comm-serv-dft       pic 9(2) comp-x.
  117.          03 filler              pic x(16).
  118.          03 reset-trc-dft       pic 9(2) comp-x.
  119.          03 trunc-dft           pic 9(4) comp-5.
  120.          03 strg-size-dft       pic 9(4) comp-5.
  121.          03 filler              pic x(65).
  122.       *-----------------------------------------------------------------
  123.  
  124.       *--------------- get-cp-convert-table verb -----------------------
  125.        01 get-cp-convert-table-verb redefines vcb.
  126.          03 opcode-gcp             pic 9(4) comp-x.
  127.          03 filler                 pic x(2).
  128.          03 primary-rc-gcp         pic 9(4) comp-x.
  129.          03 secondary-rc-gcp       pic 9(8) comp-x.
  130.          03 source-cp-gcp          pic 9(4) comp-x.
  131.          03 target-cp-gcp          pic 9(4) comp-x.
  132.          03 conv-tbl-addr-gcp      usage pointer.
  133.          03 char-not-fnd-gcp       pic 9(2) comp-x.
  134.          03 sub-char-gcp           pic 9(2) comp-x.
  135.       *-----------------------------------------------------------------
  136.  
  137.       *--------------- log-message verb --------------------------------
  138.        01 log-message-verb redefines vcb.
  139.          03 opcode-lmg               pic 9(4) comp-x.
  140.          03 filler                   pic x(2).
  141.          03 primary-rc-lmg           pic 9(4) comp-x.
  142.          03 secondary-rc-lmg         pic 9(8) comp-x.
  143.          03 msg-num-lmg              pic 9(4) comp-5.
  144.          03 origntr-id-lmg           pic x(8).
  145.          03 msg-file-name-lmg        pic x(3).
  146.          03 msg-action-lmg           pic 9(2) comp-x.
  147.          03 msg-ins-len-lmg          pic 9(4) comp-x.
  148.          03 msg-ins-addr-lmg         usage pointer.
  149.       *-----------------------------------------------------------------
  150.  
  151.       *--------------- transfer-ms-data verb----------------------------
  152.        01 transfer-ms-data-verb redefines vcb.
  153.          03 opcode-tmd               pic 9(4) comp-x.
  154.          03 type-tmd                 pic 9(2) comp-x.
  155.          03 filler                   pic x.
  156.          03 primary-rc-tmd           pic 9(4) comp-x.
  157.          03 secondary-rc-tmd         pic 9(8) comp-x.
  158.          03 options-tmd              pic 9(2) comp-x.
  159.          03 filler                   pic x.
  160.          03 origntr-id-tmd           pic x(8).
  161.          03 dlen-tmd                 pic 9(4) comp-5.
  162.          03 data-ptr-tmd             usage pointer.
  163.       *-----------------------------------------------------------------
  164.  
  165.